home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
MIDI2CS.ZIP
/
FATIMA.ORC
< prev
next >
Wrap
Text File
|
1995-03-25
|
1KB
|
69 lines
; SONGLAB 1995 MIDI2CS v0.92
; Bonhoefferufer 13 10589 Berlin Tel. 0049/30/3456477
;
; Example of a simple multisample instrument
; The file fatima.hdr must be included in the scorefile
;
; This one will be a lot better with the next version
; of MIDI2CS I hope. I am working on it :)
;
; I will create instruments and effects automatically
; with the next version of MIDI2CS.
;
; Please send any suggestions for instruments and effects
;
; Ruediger Borrmann
sr = 48000
kr = 4800
ksmps = 10
nchnls = 2
; Global Volume / Gesamtlautstaerke
givol = 0.4
ga1 init 0
ga2 init 0
instr 1, 2, 3, 4
kamp linen 1, -1, p3, .02
asig oscil 5000, p4, 1
outs asig*kamp, asig*kamp
endin
instr 20, 21, 22, 23 ; Organ
imidi = (int(p4)-3)*12+frac(p4)*100
ifno table imidi, 79 ;map notnum to ftables (3-11)
ibasno table imidi, 78 ;map notnum to ftable basenot
ibasoct = ibasno/12.+0.
icps = cpspch(p4)
iamp = 32000*givol
; Huellkurve fuer soundin sample
kamp linen iamp, -1, p3, .02
a1 loscil kamp, icps, ifno, cpsoct(ibasoct)
aright = a1*0.7
aleft = a1*0.7
outs aright,aleft
ga1 = aright*0.5
ga2 = aleft*0.5
endin
instr 99
a1 reverb2 ga1, 1.6, .3
a2 reverb2 ga2, 1.3, .5
outs a1*0.1, a2*0.1
ga1 = 0
ga2 = 0
endin